www.gusucode.com > 落叶冰点万能企业网站内容管理系统 V9.1 > 落叶冰点万能企业网站内容管理系统 V9.1\code\admin\D_admin_index_select.asp
<%
'**************************************************************
' 新动软网站管理系统
' 官方网站: http://www.aspcpu.com
' 系统作者: 阮丁远(网名：天下程序)
' Copyright 新动软网站管理系统 版权所有
'**************************************************************
%>
<%
dir_set="../"
%>
<!--#include file=../inc/conn.asp-->
<!--#include file=../inc/Functionb.asp-->
<!--#include file=../inc/ajaxLIB.asp-->
<!--#include file=inc/checkadmin1.asp-->
<!--#include file=../inc/functionFiless.asp-->
<html>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<style type="text/css">
<!--
body {
background-color: #EAEAEA;
background-image: url(IMG/i_bg.jpg);
}
.aa {
text-decoration: none;
color: #000000;
}
.STYLE1 {
color: #FF0000;
font-weight: bold;
}
.STYLE2 {color: #0000FF}
.STYLE3 {color: #434D72}
-->
</style>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>后台管理</title>
</head>
<script language="javascript">
window.moveTo(0,0);
window.resizeTo(screen.width,screen.height);
</script>
<%
Application.Lock()
Application("newdsoft_web_user_mdb_using")="no"
Application("newdsoft_web_user_mdb_when_using")=now()
Application.UnLock()
if set_nd_qz_sys_type<>0 then
if nd_qz_sys_type="cms" then
biao2="[ND_config]"
set rs22=server.CreateObject("adodb.recordset")
rs22.open "select top 1 * from "&biao2&" where datatype='sys_type'",conn,1,3
if rs22.eof then
rs22.addnew
if session(nd_admin_cach_varb_name)="" then
if request.cookies(nd_admin_cach_varb_name)="" then
uuuaa=""
else
uuuaa=request.cookies(nd_admin_cach_varb_name)
end if
else
uuuaa=session(nd_admin_cach_varb_name)
end if
rs22("datatype")="sys_type"
rs22("data")="cms"
rs22.update
end if
rs22.close
set rs22=nothing
set rs22=server.CreateObject("adodb.recordset")
rs22.open "select top 1 * from "&biao2&" where datatype='sys_type'",conn,1,3
rs22("data")="cms"
rs22.update
response.redirect "D_admin_index.asp"
end if
if nd_qz_sys_type="qiye" then
biao2="[ND_config]"
set rs22=server.CreateObject("adodb.recordset")
rs22.open "select top 1 * from "&biao2&" where datatype='sys_type'",conn,1,3
if rs22.eof then
rs22.addnew
if session(nd_admin_cach_varb_name)="" then
if request.cookies(nd_admin_cach_varb_name)="" then
uuuaa=""
else
uuuaa=request.cookies(nd_admin_cach_varb_name)
end if
else
uuuaa=session(nd_admin_cach_varb_name)
end if
rs22("datatype")="sys_type"
rs22("data")="qiye"
rs22.update
end if
rs22.close
set rs22=nothing
set rs22=server.CreateObject("adodb.recordset")
rs22.open "select top 1 * from "&biao2&" where datatype='sys_type'",conn,1,3
rs22("data")="qiye"
rs22.update
response.redirect "D_admin_index_qiye.asp"
end if
end if
biao2="[ND_config]"
set rs2211=server.CreateObject("adodb.recordset")
rs2211.open "select top 1 * from "&biao2&" where datatype='sys_type'",conn,1,3
sss112=rs2211("data")
if sss112="cms" then
sas="内容管理cms系统"
end if
if sss112="qiye" then
sas="企业网站"
end if
biao2="[ND_config]"
set rs2211=server.CreateObject("adodb.recordset")
rs2211.open "select top 1 * from "&biao2&" where datatype='sys_type'",conn,1,3
sss112=rs2211("data")
if sss112="cms" then
outfde=nd_web_output_folder
end if
if sss112="qiye" then
outfde=nd_web_output_folder_qiye
end if
suurl="../"&outfde&"/"
%>
<body marginheight="0" marginwidth="0" leftmargin="0" rightmargin="0" topmargin="0" bottommargin="0">
<table width="100%" height="481" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="66" align="center">本系统是两个系统二合一的，可以灵活切换</td>
</tr>
<tr>
<td height="72" align="center"><table width="62%" height="42" border="3" cellpadding="0" cellspacing="0">
<tr>
<td align="center" bgcolor="#DFDFDF" onMouseOver="this.style.backgroundColor='#9999aa'" onMouseOut="this.style.backgroundColor='#DFDFDF'">
<a href="D_admin_index.asp" class="aa">
进入内容管理系统cms的后台</a> </td>
</tr>
</table></td>
</tr>
<tr>
<td height="74" align="center"><table width="62%" height="42" border="3" cellpadding="0" cellspacing="0">
<tr>
<td align="center" bgcolor="#DFDFDF" onMouseOver="this.style.backgroundColor='#9999aa'" onMouseOut="this.style.backgroundColor='#DFDFDF'">
<a href="D_admin_index_qiye.asp" class="aa">
进入企业网站的后台 </a> </td>
</tr>
</table></td>
</tr>
<tr>
<td height="51" align="center">
<table width="62%" height="42" border="3" cellpadding="0" cellspacing="0">
<tr>
<td align="center" bgcolor="#DFDFDF" onMouseOver="this.style.backgroundColor='#9999aa'" onMouseOut="this.style.backgroundColor='#DFDFDF'">
<a href="D_udt_sys.asp" class="aa">
开始系统升级</a> </td>
</tr>
</table>
<script language="javascript">
function axx(ssszz){
if (confirm("切换时需要先执行 刷新与生成所有前台页面 这个操作，而 刷新与生成所有前台页面 需要花费很长时间,请耐心等待,\n且绝对不可以在切换过程中 强行中断，\n\n（如果执行本操作时出现 很耗服务器资源甚至服务器暂时无反应了或提示Service Unavailable(特别是用虚拟主机而不是用服务器的情况),此时，推荐您在本地自己的电脑上用本地的IIS来运行本系统，在本地电脑上进行 切换系统类型 的操作，编译与生成好一个 整站系统后再上传到服务器上 浏览）\n\n\n，确定进行切换操作吗？")==1){
self.location=ssszz;
}
}
</script>
</td>
</tr>
<tr>
<td height="44" align="center"><a href="#" onclick="axx('D_change_to_qiye.asp');"><strong>把网站前台切换到企业网站</strong></a> <a href="#" onclick="axx('D_change_to_cms.asp');"><strong>把网站前台切换到内容管理系统</strong></a></td>
</tr>
<tr>
<td height="79" align="center">
当前网站前台调用的是：<%=sas%> ,<a href="<%=suurl%>" target="_blank">浏览当前前台</a>
<br><br>
<a href="../<%=nd_web_output_folder_qiye%>/" target="_blank">浏览企业站子系统的前台</a> ,<a href="../<%=nd_web_output_folder%>/" target="_blank">浏览内容管理cms子系统的前台</a>
</td>
</tr>
<tr>
<td align="left"><hr>
<span class="STYLE1"><span class="STYLE2">如果想 进入后台时强制自动选择后台类型而不让用户手动选择，请打开inc/config.asp,并修改以下设置：</span><br>
</span><span class="STYLE3"><br>
'是否进入后台强制自动选择后台类型而不让用户手动选择,1=开启<br>
set_nd_qz_sys_type=0<br>
'进入后台强制自动选择的后台类型，qz_sys_type可以填"cms"或"qiye" ,"qiye"指企业网站类型，"cms"指内容管理cms系统类型<br>
nd_qz_sys_type="cms"</span></td>
</tr>
</table>
<%
call CloseConn()
Application.Contents.Removeall()
session("ok_hhhv")=""
session("ok_hhhvm")=""
%>
</body>
</html>